perm filename PAST.SCR[M11,LCS] blob sn#409415 filedate 1979-01-04 generic text, type T, neo UTF8
INS 0 1; <  INSTRUMENT 1 
ENV  
;    
ENV P4 P5 B2 DP7 DP8 DP9;
OSC B2 FP3 B2 P6 ;  
OUT B2 B1;END; 
SEG 2 0 1 1 8 1 10 .5 25 .5 50 0 75 0 100; <F2  ENVELOPE    
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE  F4    
SIN 1 1;  <F1  SINE WAVE 
SEG 5 1 1 1 50 ,-1 50.3, -1 100; <F5  SQUARE WAVE.
     
SRT←12800;
 
  < PAST .SCR  --  RANDOM NUMBER=     1
 PLAY;
 ENV      0.000    0.314  A    500.000    F2    F1   0.020 P2   0.070   0.900
;PRINT P1;< ENV     1
 ENV      0.349    0.314 AS      1000.0    F2    F1   0.020 P2
;PRINT P1;< ENV     2
 ENV      0.698    0.314  D*2  500.000    F2    F1   0.020 P2
;PRINT P1;< ENV     3
 ENV      1.047    0.314  C*2  500.000    F2    F1   0.020 P2
;PRINT P1;< ENV     4
 ENV      1.396    0.191 AS    500.000    F2    F1   0.020 P2   0.070   1.100
;PRINT P1;< ENV     5
 ENV      1.570    0.157  A    500.000    F2    F1   0.020 P2   0.070   0.900
;PRINT P1;< ENV     6
 ENV      1.744    0.314  G      1000.0    F2    F1   0.020 P2
;PRINT P1;< ENV     7
 ENV      2.093    0.314  C    500.000    F2    F1   0.020 P2
;PRINT P1;< ENV     8
 ENV      2.442    0.314  F    500.000    F2    F1   0.020 P2
;PRINT P1;< ENV     9
 ENV      2.791    0.314  G    500.000    F2    F1   0.020 P2
;PRINT P1;< ENV    10
 ENV      3.140    0.314  A    500.000    F2    F1   0.020 P2
;PRINT P1;< ENV    11
 ENV      3.489    0.191 AS    500.000    F2    F1   0.020 P2   0.070   1.100
;PRINT P1;< ENV    12
 ENV      3.663    0.157  A    500.000    F2    F1   0.020 P2   0.070   0.900
;PRINT P1;< ENV    13
 ENV      3.837    0.628  G      1000.0    F2    F1   0.020 P2
;PRINT P1;< ENV    14
 FINISH; < PAST .SCR